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EDITORIAL 


algunas 
de las 


novedades que 


COMMODORE tiene anunciadas 


N. uestra Revista, en su habitual estuer- 
zo por facilitar a sus lectores una infor- 
mación lo más fresca posible, ha envia- 
do a la recientemente celebrada feria de 
HANNOVER a dos espías con el fin de 
averiguar qué novedades está prepa- 
rando COMMODORE para el próximo 
futuro. Una vez sometidos nuestros en- 
viados a un exhaustivo tercer grado han 
confesado haber visto lo siguiente: 


PRIMERO: El lector de cintas de 
cassette tiene un nuevo diseño (hemos 
conseguido arrancarles hasta una foto- 
grafía) y aunque sólo podemos evaluar 
los cambios externos creemos que la 
mejora es sustancial: mejor visibilidad 
del cuentavueltas y de la cinta y más te- 
clas de actuación situadas en posicio- 
nes diferentes de las antiguas induda- 
blemente para amenizar el trabajo de los 
que estamos acostumbrados al modelo 
antiguo. 


SEGUNDO: Parece ser que tam- 
bién existe (los servicios de contraespio- 
naje han conseguido interceptar los mi- 
crofilms) una nueva versión del COM- 
MODORE 64 ¡¡PORTÁTIL!! es decir, in- 
tegrado en una caja con una pantalla en 
color de 5 pulgadas y una unidad de dis- 
co y espacio para otra. 


TERCERO: Aparece también un 
“plotter” (una impresora que permite di- 
bujar directamente) de cuatro colores 
que —siguiendo la política clásica de 
COMMODORE— tendrá un precio de 
risa. El sistema de dibujo es por bolígra- 
fo, su resolución es de 0,2 mm. Este 
aparato —cuyo modelo es el 1520, ase- 
guran nuestros hombres en HANNO- 
VER— es capaz de escribir además de 
dibujar un máximo de 80 caracteres por 


línea en diferentes tamaños y orienta- 
ciones, tiene un tamaño reducido y pue- 
de sustituir a la impresora en aquellas 
aplicaciones que requieran el uso fre- 
cuente de gráficos. 


Como colofón a esta serie de noveda- 
des hablaremos de una existente en 
nuestro país: la unidad de disco 1541 
que sustituye a la del VIC y que sirve di- 
rectamente para el COMMODORE 64, 
para aquellos que posean un monoflo- 
ppy 1540 y necesiten convertirlo a 1541 


(el del COMMODORE 64) se está empe- 
zando a comercializar una ROM que 
realiza esta función. 


En cuanto a nuestra Revista los lecto- 
res habituales habrán observado que 
hemos vuelto a aumentar el número de 
páginas (en la edición para nuestros 
suscriptores) por supuesto sin modificar 
el precio. En cuanto al contenido esta- 
mos preparando algunas nuevas sec- 
ciones que empezarán a aparecer den- 
tro de muy poco. E 


ara CcBM 


Add 


O E) 


REO 


E 


coda ODIA LE NTRA 


modo de utilizar variables 
del BASIC desde 
código máquina 


por JOSEP TINTO ESPELT : 


para ser llamadas desde el BASIC, que 
se presente la conveniencia de reco- 
ger datos de una variable tanto numé-- 
rica como alfanumérica desde la sub-* 
rutina propiamente dicha. El caso con- 
trario es también frecuente (afectar * 
una variable con un nuevo contenido 
desde la propia subrutina). Y 
(continúa en la pág. siguiente) 47 


Ano todo E que se repase 
el contenido de la VENTANA CBM del 
“número seis de nuestra Revista con 
el fin de que todo lo relacionado con la 
estructura de las variables en la me- 
moria del ordenador quede totalmente 
claro. 

E Es frecuente la necesidad, al des- 
E arrollar Bubruipes de código máquina 
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VENTANA CBM 


- modo de utilizar variables del BASIC 
desde código máquina 


(viene de la pág. anterior) 


PUNTEROS UTILIZADOS EN 
LOS EJEMPLOS 


SUBRUTINA DE BÚSQUEDA DE 
VARIABLE NUMÉRICA 


BUVN : modo de buscar var. num. 
ida £ 'a ; nombre variable. 

Idx 4 'b ; segundo carácter. 

(Idx 4 0) : sin segundo carácter. 


Etiqueta Decimal hexa Descripción 


S02 flag utilizado en las rutinas. 

So05 contador general (número de índices). 
DIMFLG S06 dim flag. 

VALTYP so7 tipo de variable 0=numérica 255=alfa 
INTFL S08 flag para tipo entero, 

VARTAB 42,43 S2A,2B puntero tabla de variables. 

ARYTAB 44,45 S2C,2D puntero tabla de matrices. 

STREND 46,47 S2E,2F puntero fin de tablas. 

FRETOP 48,49 $30,31 puntero principio'strings. 

FRESPC 50,51 S32,33 puntero tope de espacio strings. 
MENSIZ 52,53 S34,35 puntero posición máx. memoria útil, 
VARNAM 68,67 $42,43 nombre variable en curso. 

VARPNT 68,69 S44,45 puntero de dir. en tabla 

FAC 94,99 $5E,63 acumulador + 1 

ARG 102,107 $66,6B acumulador 2. 

STRNG2 110,111 $S6E,6F Índice. 

índice 214,215 $D6,D7 Índice de utilidad. 


flag 


COUNT . ; 
sta varnmam ¡primer carácter a varnam 


stx varnam+1 ; segundo carácter 
Ida 40 

sta VALTYP  ; tipo de variable. 
sta INTFL ; flag de entero. 

jsr bvar ; subrutina del basic 
jmp !fip ; carga en FAC 


2 
5 
6 
7 


SUBRUTINA DE BÚSQUEDA DE 
VARIABLE ALFANUMÉRICA 


BVAL : modo de buscar una var. alfa. 
Ida 4 'a : primer carácter nombre var. 
ldx + 'b : segundo carácter nombre. 
(Idx + 0) : sin segundo carácter. 

ora 4128  ; distintivo alfanum. $: 

Ida + 255 

sta VALTYP ; tipo var. alfanumérica 

Ida 40 

sta INTFL  ; flag entero 


SUBRUTINAS UTILIZABLES 
BASIC 4.0 


Etiqueta Decimal hexa Descripción jmp bvar  ; subrutina del basic 
bvar 49543  SC187 búsqueda de variable. 
barr 49987  $SC343 búsqueda de matriz. 


GARBA2 50794  SC66A recogida de basura (garbage). 
CONUPK 52162 SCBC2 carga ARG con memoria index. (a,y). 
MOVFM 52440 SCCD8  cargaFAC con memoria index. (a,y) 
MOVMF 52490 SCDOA carga memoria index. (x,y) con FAC. 
MOVFA 52530  SCD32 carga FAC con contenido de ARG. 
MOVAF 52546  SCDA42 carga ARG con contenido de FAC. 


NOTA: El puntero de página cero 
VARPNT contendrá, a la salida, la 
dirección de la tabla de variables en 
el byte que contiene la longitud del 
«string». La dirección del «string» es- 
tará en los dos bytes siguientes. 


Continuará en el próximo número. 
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BASIC 


cómo obtener 
programas 


más rápidos 


en BASIC 


Cuando se habla del lenguaje BASIC, 
uno de los primeros temas que apare- 
cen en la discusión es su lentitud, 
que llega a levantar odios enconados 
en ciertos círculos profesionales. La 
conclusión a la que suele llegarse es 
que el BASIC es muy interesante por 
su facilidad de aprendizaje (justa- 
mente para esto fue diseñado) y la 
gran cantidad de soluciones ya ela- 
boradas que posee, así como por su 
popularidad. La polémica suele ter- 
minar con la comprobación de que si 
uno quiere más prestaciones de ve- 
locidad y flexibilidad, lo mejor que 
puede hacer es trabajar en lenguaje 
máquina en aquellas aplicaciones que 
tengan problemas de tiempo y/o de 
versatilidad. Hasta ahora esto era 
más o menos así. No obstante, en los 
últimos tiempos ha aparecido un nue- 
vo lenguaje llamado FORTH que viene 
a llenar el vacío entre el BASIC y el 
lenguaje máquina (o también cono- 
cido como ASSEMBLER). Tanto para 
el FORTH (que existe para los mode- 
los VIC-20 y COMMODORE 64) como 
para el ASSEMBLER, la Redacción de 
CLUB COMMODORE está preparan- 
do sendas series de artículos para 
que nuestros lectores puedan — si lo 
desean — utilizarlos con un mínimo 
de información. 

Pero volvamos al BASIC. En este 
artículo se darán una serie de indica- 
ciones sobre la manera de obtener la 
máxima velocidad de ejecución de los 
programas escritos en este lenguaje, 
mediante la racionalización del redac- 
tado de los mismos. El único incon- 
veniente de estos métodos de opti- 
mización es que los programas serán 
menos «legibles»; es decir, que una 
persona que lea un listado encontra- 
rá más dificultades en saber qué ha- 


por P. MASATS 


ce el programa y cómo lo hace. Y no 
sólo otra persona tendrá dificultades 
para entender el programa que ha 
realizado Ud. sino que Ud. mismo, al 
cabo de seis meses de haber escrito 
un programa, tendrá que luchar en- 
carnizadamente para recordar el pro- 
ceso que veía tan claro. De todas 
maneras, no se preocupe; a nosotros 
nos pasa lo mismo aunque no utilice- 
mos técnicas de optimización y es 
que BUG nunca descansa. 

Para entender las razones de algu: 
nos de los trucos que se explican es 
conveniente consultar la serie de ar- 
tículos que se han publicado en nues- 
tra sección VENTANA CBM en los nú- 
meros 3, 4, 5 y 6 sobre la estructura 
de los programas BASIC y el alma- 
cenamiento de variables. Algunas de 
las técnicas de optimización son las 
siguientes: 


1. Escriba sus subrutinas al prin- 
cipio de su programa y ponga una 
línea antes de éstas con un GOTO 
que nos remita al principio real del 
programa. Cuando el intérprete de 
BASIC encuentra una instrucción GO- 
SUB ..., comienza a buscar la subru- 
tina al principio del programa. Si és- 
tas están al principio las encuentra 
con más rapidez. Ejemplo: 


1 GOTO 100 
10 REM PRINCIPIO DE SUBRUTINAS 
99 RETURN: REM FIN DE SUBRUTI- 
NAS 
100 REM COMIENZO DEL PROGRA:- 
MA PROPIAMENTE DICHO 


2. Evite los espacios. Los espa- 
cios son caracteres que deben ser 
ignorados y esto toma tiempo en la 
interpretación. Ejemplo: 


1 PRINT 7 + 9: REM ES MÁS LENTO 
QUE: a 

1 PRINT7+9:REM QUE ES MÁS RÁ- 
PIDO 


3. No incluya REMs. Ocurre lo 
mismo que con los espacios. 


4. Utilice nombres de variables 
de una sola letra. El intérprete se 
toma su tiempo para leer el carácter 
extra; además, se emplea más me- 
moria. 


5. Incluya el máximo de instruc- 
ciones en una misma línea utilizando 
separadores ':”. Esto reduce el nú- 
mero de líneas del programa, acele- 
rando los GOTOs. Cuando se ejecuta 
una instrucción de salto como GOTO 
o GOSUB, el intérprete empieza su 
búsqueda por la primera línea y con- 
tinúa una por una buscando la que 
necesita. Esta precaución también 
ahorra memoria. 


6. Numere las líneas de su pro- 
grama de una en una. Esto reduce los 
dígitos que han de leerse durante un 
GOTO o un GOSUB y de paso ahorra 
memoria. 


7. No utilice variables enteras 
(ej.: A%). Cuando el intérprete de 
BASIC encuentra una variable entera 
tiene que convertirla a coma flotante 
para poder manejarla. Cuando se de- 
be manejar una instrucción del tipo 
A%=B%-+C%, el BASIC debe con- 
vertir B% y C% a coma flotante, rea- 
lizar la suma y reconvertir el resul- 
tado a entero para asignarlo a la va- 
riable A%. Todo esto consume tiem: 
po, aparte del carácter extra (%) que 
se debe almacenar y manejar. 


8. Utilice variables como constan- 
tes en su programa. El intérprete de- 
be convertir las constantes a coma 


(termina en la pág. siguiente) 
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cómo obtener 
programas 
más rápidos 
en BASIC 


(viene de la pág. anterior) 


flotante para poder manejarlas. Si las 
constantes ya están convertidas (en 
las variables) habrá un ahorro de 
tiempo. Ejemplo: 


10 POKE36879,8:REM ES MÁS LENTO 
QUE j 

10 POKEQ J:REM QUE ES MÁS RÁPI- 
DO 


9. Utilice instrucciones PRINT en 
vez de POKEs en pantalla siempre 
que sea posible. La instrucción PRINT 
establece el color del carácter ade: 
más del carácter en sí lo cual reque- 
riría dos POKESs. 


10. No escriba IF ... THENGOTO 
... El GOTO es innecesario. 


11. Atribuya un valor inicial a to- 
das las variables al principio de su 
programa, antes de que se dimensio- 
ne ninguna matriz o se definan las 
cadenas alfanuméricas. Cuando se 
crean nuevas variables, el intérprete 
debe mover las matrices y las cade- 
nas para «hacer sitio», lo cual con- 
sume tiempo (ver los artículos cita: 
dos). 


12. Ponga las variables utilizadas 
con más frecuencia las primeras en 
las instrucciones de valor inicial. El 
BASIC encontrará los valores de es- 
tas variables antes. 


13. No use el nombre de la varia- 
ble en una instrucción NEXT. Cuando 
se encuentra esta instrucción, el in- 
térprete comprueba si el nombre es 
correcto. Si sólo se especifica NEXT 
el BASIC asume que es correcto y 
continúa con la ejecución. 


14. Utilice rutinas en lenguaje má: 
quina en los puntos críticos. Hay un 
límite de velocidad que el BASIC no 
puede superar El lenguaje máquina 
se ejecuta a mucha mayor velocidad. 
Cortas rutinas en ASSEMBLER en los 
puntos críticos pueden incrementar 
notablemente la velocidad del progra- 
ma, sin complicarlo excesivamente. 


COLABORACIONES 


1. programa para e 
de la ley de Ohm 


2. un tren de jugue 
la pantalla de! t 


Hemos recibido estos dos programas que hemos considerado inte- 
resantes para el VIC-20. El primero trata sobre la ley de Ohm que es 
la base de toda la electricidad y electrónica tal como la estudiamos 
y el segundo es un sencillo tren de juguete para que los niños muy 
pequeños pierdan el respeto al teclado (¡si es que tienen respeto 
por algo!). Sus autores son, respectivamente: JOAQUÍN SANZ de 
Barcelona y F. CASTANYER de Palma de Mallorca. 


JOAQUÍN SANZ nos explica: 


El presente programa está basado 
en las fórmulas: 


V=R*I P=V% 


Y está creado con el fin de, en función 
de cualquier par de parámetros, reali- 
zar el cálculo de cualquiera de los res- 
tantes y, si se desea, también del 
cuarto. 

Con. la combinación de las diferen- 
tes formas en que pueden verse las 
dos fórmulas antes citadas obtenemos 
un rosario de 12 con el que podemos 
calcular cualquier valor en base a un 
par de los demás, sin necesidad de 
realizar cálculos y despejes previos. 
Esta es fundamentalmente la ventaja 
que persigue este programa. 


FUNCIONAMIENTO 


Las líneas 5-90 imprimen la cabecera 
del programa, junto a una somera ex- 
plicación de lo que será el mismo, y 
se exponen los parámetros con los que 
trabaja el programa. 

Las líneas siguientes, de la 100 a 
la 160, solicitan al operador el pará- 
metro a calcular, pasando a la sub- 
rutina de selección de las fórmulas 
que veremos luego. En el caso de un 


error al darle un dato, pulsar una tecla 
que no entre en las solicitadas, el orde- 
nador pide el dato nuevamente. Este 
paso se da en todas las elecciones que 
debe realizar el operador. 

Las líneas 175 a 500 son las encar- 
gadas en función del parámetro a cal- 
cular de la impresión en pantalla de 
las tres fórmulas posibles para el 


cálculo del parámetro en cuestión. Una 


vez seleccionada la fórmula conve- 
niente, el ordenador pasa a una serie 
de subrutinas (4) que solicitarán la en- 
trada de las dos variables necesarias 
para el cálculo (líneas 510-580). 

Automáticamente se pasa a la eje- 
cución del cálculo y posteriormente 
el operador tendrá la posibilidad de 
solicitar el valor del cuarto parámetro 
que no entra en la fórmula. Si se desea 
conocerlo aparecerá en pantalla, si no, 
se pasa a la posibilidad de realizar un 
nuevo cálculo, o bien finalizar el pro- 
grama. 

Al cálculo del cuarto parámetro co- 
rresponden las líneas 870-1260, en las 
que va incluida la decisión de calcu- 
larlo o no. 

Las líneas 1270-1310 permiten la 
continuación del cálculo o el fin del 
programa. 

Por lo que respecta a los cálculos, 
las líneas se corresponden así: 
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198 PRINT:PRINT"1- R=W/I" 618 G0SUBS89 :GOTO918 


208 PRINT"2- R=P/C112>" 628 PRINTIPRINT"R="3P3"/"317"12="3P 
¿C11233" OHM" 
218 PRINT"3- Re=vt2/P" 

638 60suBs89 :G0T0948 
228 INPUT"1/2/3"3B$ 

648 PRINTIPRINTR="3Y3"12/"3P53"="3Y 
225 PRINT:PRINT t27/P5" OHM” 


238 IFB$="1"”THENGOSUBSS8 :GOSUBS389 :G 658 60SUB888:60T0978 
0710608 
668 REM CALCULOS PARA EL PARAMETRO 
248 IFBS$="2"THEN GOSUBS78 :GOSUBS38 : 
G0TOS28 


INTENSIDAD 
] a 258 IFB$="3" THEN GOSUBSS8 :GOSUBS7O 
:G070649 678 PRINT:PRINT"I="3V3"/"3R3"="3Y/R 
5" AMPER" 
268 GOTO198 
y 682 GOSUBESS :G0T01008 


270 PRINT:PRINT"1- I=Y/R" 


, 


690 PRINT:PRINT"I="3P3"/" VS" 3P/Y 
288 PRINT"2- 1I=P/Y" 3" AMPER" 


PRINT"3- I=SQRCP/R>" 708 60SUBS80 :G0T016838 


388 INPUT"1/2/3"3C$ 718 PRINT:PRINT"I=SORC"3P3"/"3R3")= 
";¿SORCP7R) 3" AMPER" 


te en 


305 PRINT:PRINT 
728 G0SUB888 :G0T01868 


318 IFC$="1"THENGOSUBSS8 :G0SUBS18:G 


J 
o n 070678 738 REM CALCULOS PARA EL PARAMETRO 
'esevisor pa 
des 328 IFC$="2"THENGOSUES78 :GOSUBSSO :6 
OTOS3O 748 PRINTIPRINT"VE"3 IMM ROS" DAR 


3" VOLT" 
338 IFC$="3"THENGOSUBS78 160SUBS10:6 
o0TO718 


6o0TO278 768 PRINT:PRINT"V="3P3"2"315"="3P/1 
3" VOLT" 


758 G0SUB888 :G0T018908 


348 


RESISTENCIA: 590-650 
INTENSIDAD: 660-720 
TENSIÓN: 730-790 
POTENCIA: 800-860 


PRINT:PRINT"1- V=RMI" 
die > 778 GOSUBS89 :G0TO1128 


PRINT"2- V=P/1” 
788 PRINT:PRINT"Y="¿R;"WSQRCU"3P7"/" 


378 PRINT"3- V=RESQR<P/R>" ¿R3")=" ¿RISOQRCUP/R> 53" VOLT" 


388 INPUTDS 798 60SUB889 :G0TO01150 


808 REM CALCULOS PARA EL PARAMETRO 


T¿PRINT 
Sa PRD POTENCIA 


398 IFDS$="1"THEN GOSUBS38 :GOSUBSI1O8 : 


OE 810 PRINT:PRINT"P="3Y3"m"313"="3Ve1 
74 : v5 ; ; 
TS 3" MATT" 
PRINT" " 49 ao laRotO: 408 $="2" THENGOSUBS78 :GOSUBS38 :G 
pt A E E perdi pis : 828 GOSUBS88:G0T01188 
28 PRINTSPCC3> "m4 -PARAMETROSHM " 419 IFD$="3"THENGOSUBS18 :GOSUBS70 :G 830 PRINT:PRINT"P="31I3"+28"¿R3"="31 


T2HR;" UATT" 


48 PRINTSPCO<9) "atado * 0710788 


8468 G60SUB888 :G0TO12108 


58 PRINT:PRINT"J.SANZ,22/03/83" 420 


de: 850 PRINT:PRINT"P="3W3"12/"7R3"=m"3V 
42/R;" MATT" 


68 PRINT:PRINTSPCC1)>"ESTE PROGRAMA 430 PRINT:PRINT"1- P=YR1" 
CALCULA LOS 4 PARAMETROS ELE-MENTAL 
ES DE UN CIRCUI=" 440 PRINT"2- P=I124R" 868 GOSUB888 :G0TO1248 
65 PRINT"TO ELECTRICO SIMPLE”:" EST 450 PRINT"3- P=Y12/R”" 878 REM CALCULOS DEL CUARTO PARAMET 
ea OS PARAMETROS SON:" RO 
78 PRINT:PRINT"R-RESISTENCIACOHNM>" RS 880 PRINT:PRINT"DESERA SABER EL VALO 
5 465 PRINT:PRINT R DEL 4[COMMY]' PARAMETRO?" 
75 PRINT"I-INTENSIDADCAMPER>" ASAS 
470 1F Es="1"THEN GOSUBS58 :GOSUB539 698 INPUT“S/N"306 
88 PRINT"V-TENSIONCVOLT)" :GOTOS18 
988 RETURN 
98 PRINT"P-POTENCIACHATT>" 488 IFES="2"THEN GOSUBS38 :G0SUBS18: 
» 60TOS38 984 1FG$="N"THEN1270 
95 REM SELECCION DEL PARAMETRO Y FO 
RMULA PARA SU CALCULO 498 IFES="3"THEN GOSUBS58 :GOSUBS18 : 906 RETURN 
GoTO8Ss8 
108 PRINT:PRINT"QUE VALOR DESEAR CAL 918 IFG$="S"THENPRINT:PRINT"P=";Vmx1 
CU-LAR?" Se68 G0TO438 ¿" MATT" :GOTO1270 
118 INPUT"R/1/V/P";A$ 518 INPUT"RESISTENCIA EN OHM";R 928 GOSUB9IO4 :GOTOS18 


RETURN 948 IFGS$="S"THENPRINT:PRINT"V=";Pxwl 


129 IF AS="R" THEN GOSUB 176:G0TO 1 528 
* YOLT”" :GOTO1278 


se P 
538 INPUT" INTENSIDAD EN AMPER” ;1 


e 


168 GOTO118 


189 RETURN 


148 IFAS="V"THEN GOSUB178:60703598 


158 IFAS="P"THENGOSUB178:60710438 


185 REM FORMULAS PARA EL CALCULO 


139 1F AS="]" THEN GOSUB 178:60T027 


178 PRINT"[ CLR J":PRINT"CUAL DE LA 
S FORMULAS SIGUIENTES LE CONVIENE? 


958 GOSUB994 :GOTOG38 


548 RETURN 
e 978 IFGS="S"THENPRINT:PRINT"I=";P/Y 


INPUT" TENSION EN VOLT"¿W 3" AMPER” :GOTO1278 


568 RETURN 988 GOSUB9O4 :GOTOSSO8 
1098 IFG$="S"THENPRINT:PRINT"P="3Y? 


? “POTEN! ., 
a IC 2/R;" MATT":60T01278 


TURN 
RETOS 1818 GOSUB9B4 :GOTOSSO 
598 REM CALCULOS PARA EL PARAMETRO 


RESISTENCIA 1838 IFG$="S"THENPRINT:PRINT"R=":V? 


2/P:" OHM" :GOTO1278 
609 PRINT:PRINT"R="3W3"/"31:"="3V/1 
¿" 0HM" (continua en la pag. siguiente) 
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COLABORACIONES 


PROGRAMA PARA 
EL ESTUDIO DE LA 
LEY DE OHM 


(continuacion) 


1048 GOSUBIS4 :G6070788 


1068 I1FG$="S"THENPRINT:PRINT"Y=" ¿Ri 
SORCP/R) 5" WOLT” :G0TO1278 


19078 GOSUB904 :G0TO728 


1998 IFG$="S"THENPRINTI:PRINT"P=" 311 
24R 5" WATT" 160TO1278 


1198 G60OSUB904 :GOTO758 


1120 1FGS$="S"THENPRINT:PRINT"R=" 3P7 
<142>;" OHM" :G0TO1278 


11398 60SUB994 :G0TO778 


1158 1FG$="S"THENPRINT:PRINT"]="S0 
RUPIR) 5" AMPER" :60TO1278 


1166 GOSUBIS4 :GOTO798 


11899 IFG$="S"THENPRINTIPRINT"R=" ;W/ 
15" OHM" :GOTO1278 


1198 S5OSUB994 :60T0828 


1218 1FG$="S"THENPRINT:PRINT"Y="3]% 
R;" VOLT" :G0TO1278 


1228 GOSUBIOS4 :60T0848 


1248 IFGS$="S"THENPRINTI¿PRINT"I="3Y7 
R3" AMPER" :GOTO1278 


1250 GOSUBIS4 :G0TOS68 


1278 PRINT:PRINT"DESER REALIZAR ALG 
UN CALCULO MAS?" 


1280 INPUT"S/N"35HS 


1299 IFHS$="S"THENPRINT"[ CLR 2":607 
078 


13098 IFH$="N"THENEND 
1318 G0TO1278 


READY, 


Nuestra segunda colaboración con- 
siste en un sencillo programa para 
niños, del cual su autor nos dice: 


Este programa es un juguete para 
mi hijo de tres años de edad, que cuan- 
do tengo la maldita ocurrencia de car- 
garlo en memoria, me impide tocar 
una sola tecla en lo que queda de 
tarde. 

Para los que quieran jugar con el 
tren de mi hijo, un aviso: una vez en 
marcha, ya no se podrá listar; sólo se 
podrá jugar o apagar el VIC. 

Para los avispados: ¡BUSCAD LA 
INSTRUCCIÓN DE BLOQUEO! 


Por nuestra parte añadiremos que 
para mover el tren deben pulsarse las 
teclas: V para marcha adelante; X pa- 
ra marcha atrás; C cambia el color del 
tren y la barra espaciadora hace sonar 
el silbato. 


1 REM TREN.F.CASTANYER 


19 POKE365879,8:POKE37158,2:POKE788, 
194 :A=12 


Z6 PRINT"L CLR 11 YEL JICRYSONICCRSRDI 
TCRSRRI [CRSRR IU CRSRRAI [CORSRAR IE CRSARI 
[CRSRRICORSARITORSRRAICORSRRITREN" 


390 PRINT"ICRSROJLORSROITORSRRIC GRN J 
PER NINS DE 3-5 ANYS" 


49 PRINT” [CRSRDIUCRSROIECRSRDIECRSRARI 
[CRSRRITSHIFZIMARXA A DRETA > Y" 


50 PRINT" [CORSRDICORSRDI[ORSRARI [CRSRRAI 
[SHIFZIMARXA ENRERA > X" 


60 PRINT"[CRSRDI[CRSROILCRSRRAILORSARI 
USHIFZICANVIAR COLOR > C" 


78 PRINT"[CRSRDICCRSRO)LCRSRDILCRSRARI 
SIULET > BARRA ESPAII[CRSRDILORSRDI" 
¡PRINT" PULSA (RVYSONJ[ RED JRETU 
RN" 


73 IFPEEK(197><>15THEN7S 


80 AS="[ WHT JU RED Jl CYN J[ PUR 3 
( GRN JC BLU J[ YEL J* 


98 FORC=1T0S:N=INT<ORNDC 157 >+1 RSC 
3=MIDSCAS,N, 1) ¿NEXT 


198 PRINT"C[ CLR JLCRSRDITCRSRDICORSROI 
ECRSRDI[CRSRADICCRSRDITORSRODI" 


118 PRINTASC1>" [COMMO ) CCOMMOJ [COMMI 3 
[COMMOJ LCOMMI JLCOMMOJICOMMOT [COMMOJ 
ECOMMIJCCOMMOICCOMMI J" 


120 PRINTASC(2>" 
[COMM+] 


Ccomm+ 3 [COMN+ 7 
£Ccomm+J [COMM+ 7 EComm+ 3 


130 PRINT" [Ccomm+3 [COMM+] [COMM+I 
[COMm+3C WHT JI8"A$(2>"[COMM+] [COMM+3 
Ecomm+ 3" 


148 PRINT" 
[COMM+) [COMM+ 7 


E COmMm+ 3 [COMM+ 7 1COMM+ 3 
[COM 3 [COMM+ 3 [COMM+ 3 


TCOMM+ 3 [COMM+ 3 [COMM+3 [COMM+ 7" 


1568 PRINTASC3>" [COM 3 1 COMM+ 3 [COMM+ 7 
E COMM+ 3 [COMM+3 [COMM+ 3 [COMM+ 7 [COMMO J 
L.COMMO J [ COMM+ 3 [COMM+3 [COMM+ 3 E COMM+ J 
£Comm+ 3 [COMM+3[COMM+J[COMMEJ" 


169 PRINT" [comm+3 [COmmM+J [COMM+I 
Ecomm+) [COMMÉJTCOMM+3 [COMM+3 [COMM+] 
1Comm+ 7" 


179 PRINTASC4>" (SHIFAI [SHIFQI 
(SHIFQI [SHIFQ) [SHIFQI ” 


188 PRINTASCS)"[COMMU) [ COMMU 1 [COMMU) 
LCOMMU) [COMU [COMMUJ [COMMU) ECOMMUJI 
[COMMU] LT COMMUI ECOMMUI [COMMUI E COMMUI 
LCOMMU JC COMMUI [COMMU) [COMMUJ [COMMUI 
[COMMU) C COMMUI [COMMUICCOMMUI" 

198 POKE36878,15 


208 FORC=8TO88STEP44 :POKE7874-C,32: 
NEXT 


» 
285 IFPEEK<197>)=27THENA=A+1 : IFA>23T 
HENA=1 


210 IFPEEK<197)=26THENA=A-1 :IFACITH 
ENA=23 


220 IFPEEK(197>=32THENPOKE36874 ,225 
¡POKE3687€ 238 


238 FORC=8TOSSSTEP44 :POKE7874-C,81: 
NEXT 


248 IFPEEKC197>=260RPEEKc197>=27THE 
NPOKE36877 ,200+A 


258 IFPEEK<197><>32THENFOKE36874,8 : 
POKE36876,0 


260 IFPEEKCc197)=34THEN9O 


278 IFPEEKC197)=15THENPOKE36864,12: 
soTO16 


288 POKE36864 ,R:POKE36877 .8:60T0200 


READY. 


«MÉTODO DE SIFTING» 


Gomparado con los métodos lineales 
descritos hasta ahora, se diferencia 
de ellos en que no se mantiene se- 
cuencia de comparación fija. Sin em- 
bargo, como veréis más adelante, no 
deja de ser una burbuja más evolucio- 
nada que la cocktelera (si no habéis 
leído los números anteriores, esto Os 
puede sonar a chino). 

El «Sifting« actúa igual que el mé- 
todo de la burbuja hasta que se pro- 
duce un intercambio. Entonces el ele- 
mento que se ha comparado con el de 
clave menor se le fuerza a subir tan 
arriba como se pueda. Se va compa- 
rando hacia atrás con sus elementos 
anteriores y efectuando intercambios 
hasta que se encuentre un elemento 
de clave. Entonces el proceso normal 
de arriba a abajo continúa desde la 
posición en que se efectuó el inter- 
cambio inicial. La clasificación termina 
cuando se llega al elemento N, inten- 
tándolo comparar con el N+1, en el 
proceso de arriba a abajo. 

Este método resulta muy fácil de 
programar y da como resultado un pro- 
grama relativamente corto, teniendo 
en cuenta los excelentes resultados 
que da. Sin lugar a dudas es mejor que 
los métodos lineales vistos hasta el 
momento. 

La rutina de «Sifting» desarrollada 
en BASIC se muestra en el listado 
número 1. 

Con este método hemos llegado a! 
final de los métodos lineales, en los 
que cada elemento se compara con el 
anterior o el siguiente. 

En la figura 1 aparece un cuadro re- 
sumen de estos métodos. 


METODOS NO LINEALES 


Dedicaremos esta última parte del 
artículo a describir un método no li- 
neal para finalizar esta serie dedicada 
a las técnicas de ordenación. 

En los métodos no lineales, como su 
nombre indica, el recorrido de la tabla 
no se hace de forma lineal sino que 
los elementos pueden dar saltos a tra- 
vés de ella. Del método de cálculo de 
estos saltos dependerá la eficacia de 
la rutina. 


«MÉTODO DE SHELL» 


Este método une a una gran poten- 
cia y rapidez su brevedad, si bien no 
es fácil de programar a pesar de su 
sencilla base teórica. 


(sigue el texto en la pag. 8) 


A A e e 


> 


yA q 


ATL IT 


A A 
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SOTWARE DE BASE (Iii) 


métodos de 
Sifting y de Shell 


por E. MARTÍNEZ DE CARVAJAL 


LISTADO 1 


3528 PRINTH1 ,"ORDENACION DE UNA TR 
BLA DE "M9" ELEMENTOS POR EL METODO 
10 REM fe SIFTING datar 268 J=M9-1 DE SIFTING" 


228 TIS="99009899" 


29 REN -——————HJA2 310 FOR I=i TO J 3538 PRINTH1,"TIEMPO DE ORDENACION 
> 3 "LEFTSCTS,2)":"MIDSCTS,3,2>" :"RIG 
320 IF Wc1><=HCI+1) THEN 358 HTSCTS,2> 


390 REM METODO DE ORDENACION 


338 Ri=HC1> 3548 PRINTH1 
48 REM , 
248 WEIL I+1) 1MC1I+1)=A1 :J3=1 3558 PRINTS1,"TABLA INICIAL TABLA 
59 REM ERNESTO MINZ. DE CARVAJAL HE FINAL" 
DRICH 345 GOSUE 388 
3569 PRINTH1,"ISHIFRICSHIFRICSHIFRI 
$8 REM 2358 NEXTI ESHIFRICSHIFRICSHIFRICSHIFRICSHIFRI 
CSHIFRICSHIFRICSHIFRICSHIFRICSHIFRI 
78 REM 26-FEB-83 255 GOTO 449 CSHIFRICSHIFRICSHIFRICSHIFRICSHIFRI 
TSHIFRICSHIFRICSHIFRICSHIFRICSHIFRI 
REN AAA AA 388 FOR K=J3 TO 2 STEP-1 ESHIFRI* 


398 IFW<K)>=MCK-1) THEN K=2:60T0420 3578 FOR I=1TOM9 


3589 PRINTR1," *ocD* "el 
490 Ri=HcK) <> 


198 INPUT "NUMERO ELEMENTOS” ¿M9 


118 DIM WNcM9>,0CM9> 


128 FOR I=1 TO M9 418 WHCK>muCK-1) :HcK-1>=A1 3598 NEXT 1 


138 M(I>=INTC(RNDC8)19900+108) :0C 1 >= 428 NEXT k 4909 PRINTH1 
$) 

438 RETURN 49819 CLOSE1 
148 NEXT 1 

449 REM FIN ORDENAC ION 4828 STOP 


158 FOR I=1TOM9:PRINTMW<I>:NEXTI 
3508 T*+=T15 READY. 


208 REM Mm RUTINA DE ORDENACION aah 
* 3518 OPEN1,4 


BOLETÍN DE SUSCRIPCIÓN - club commodore 


DESEO SUSCRIBIRME A “CLUB COM- 
NOMBRE A A E NO ni DAD as MODORE” POR UN AÑO AL PRECIO 
DIREC O A an DE 1.980 PTAS. QUE PAGARÉ CON- 
POBLACIÓN ... A TRA REEMBOLSO AL RECIBIR EL NÚ- 
MS RAE MARCA Y MODELO DEL ORDENADOR MERO CON EL QUE SE INICIA LA SUS- 
CRIPCIÓN. DICHA O ME 
e A o O a ri o A DA DERECHO, NO SÓLO A RECIBIR LA 
APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO coccion REVISTA (ONCE NÚMEROS ANUA- 
AY AR A IO ARA AO DALE RESTE VEA E E E IN ; AP PEE LES), SINO A PARTICIPAR EN LAS AC- 
O ts AAA AI NA rata TIVIDADES QUE SE ORGANICEN EN 
Firma TORNO A ELLA Y QUE PUEDEN SER: 
COORDINACIÓN DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 

(Enviar a la dirección del dorso) MAS, CONCURSOS, ETC. 


Deseo iniciar la suscripción con el n.* 9 


" club commodore 
8 MÉTODO 


NECESIDADES INTERCAMBIOS 
DEESPACIO | min. [MEDIO| MÁX 
- 2 
métodos de Sifting 
y de Shell pra 


N? 


(conclusión) 


Este método lo considero ideal para 
micro-ordenadores, ya que es una ru- 
tina muy rápida en tablas de hasta 


LISTADO 2 10.000 (diez mil) elementos, lo cual es 


ERNESTO MTNZ. 'DE CARVAJAL HE 


100 INPUT "NUMERO ELEMENTOS" ¿M9 
118 DIM A4CM9>,0LM9> 
128 FOR I=1 TO M9 


138 A4(1I>=INTCURNO(8)1908+ 108) :0(1)= 
ñA4C1> 


148 NEXT 1 

208 FOR I=1TOM9:PRINTA4C1>:NEXTI 
308 TIf="000000" 

3688 REM mk RUTINA DE ORDENACION 
q. 


3038 REM DATOS A PASAR 
30848 REM A4CI>=MATRIZ A ORDENAR 


38598 REM M9 =NUMERO DE ELEMNTOS A 
ORDENAR 


3088 1=9:K=09 


3099 I=3kI+1 :K=K+1:S9(K>=] 1: 1FI<M9TH 
EN309e 


3095 K=k-3 : IFK<1THENK=1 


club | 
* comm 


3188 FORI=KTO1STEP-1:5=S8C1> :FORJ=1 
TOS :FOR10=J+STOM9STEPS 


3118 V=A4(18) :FORJO=I18TOJ+SSTEP-S 


3128 IFW>=AM4(J8-S)THENA4<J8>=W :GOTO 
3140 


3139 A4(JO>=A4(JO-S) ¿NEXTJO :A4<J>=W 
3148 NEXT IG:NEXTJ:¿NEXTI:REM FIN OR 
DENACION 

3509 T$=T15$ 

3518 OPEN 1,4 

3526 PRINTH1,”"ORDENACION DE UNA TAS 
LA DE "M9" ELEMENTOS POR EL METODO 

SHELL " 

3530 PRINTH1,"TIEMPO DE ORDENACION 

2 "LEFTSC(TS,2)" :"MIDSCTS,3,2)":"RIG 
HTS$<TS,2)> 

3540 PRINTRH1 


3558 PRINTH1,"TABLA INICIAL TABLA 
FINAL” 


3568 PRINTRH1,"ISHIFAICSHIFAICSHIFMI 
ESHIFSICSHIFAICSHIF*ICSHIFAICSHIFAI 
ESHIF*ICSHIFAICSHIFAICSHIFRICSHIF*I 


CSHIFAICSHIFAIEOSHIFAITCOSHIFAICSHIFOI 


ESHIFICSHIFMICSHIFAICSHIFMICSHIFMI 
ESHIFMI" 


3578 FOR 1=1TOM9 


3589 PRINTH1," *ocI>" 
4D 


NEXT 1 
PRINTH1 


CLOSE1 


odore E cda . 


más que suficiente en la mayoría de 
las aplicaciones y además se progra- 
ma en ocho (¡ocho!) líneas en BASIC. 

La idea del método, publicado por 
primera vez por Donald L. Shell en 
1959, es tratar de superar la desven- 
taja que supone para el «método de 
Sifting» el que los elementos de la 
lista sólo se puedan mover a través 
de la misma posición a posición, lo 
cual — inevitablemente — da tiempos 
de ejecución proporcionales a N” 2. 
Por tanto, para mejorarlo habría que 
introducir algún mecanismo mediante 
el cual los elementos puedan dar lar- 
gos saltos a través de la tabla. Esto 
es precisamente lo que hace este mé- 
todo, dando tiempos de ordenación 
proporcionales a N” (5/4) lo cual es 
sensiblemente menor a N ” 2. Me per- 
donaréis que no os detalle más este 
método pero es que puedo morir en 
el intento (y creo que todavía no hay 
medallas al mérito informático). El 
listado 2 reproduce la rutina que es- 
pero que os sea de mucha utilidad. 


Los tiempos resultantes para orde- 
naciones de 50 y 100 elementos en los 
dos métodos descritos en este artícu- 
lo son: 


50 elementos] 100 elementos 


Sifting | 00:00:16 00:01:00 
Shell 00:00:06 00:00:19 


3" Taquígrafo Serra, 7, 5.* planta Sd 
us BARCELONA-29 


microelectrónica hi == 


y control s.a. 


PROGRAMAS 


PROGRAMAS EN DISCO 


D-1001 


D-1002 


D-1003 


D-1004 


D-1005 


D-1006 


D-1007 


3301 


3304 


3305 


Agenda 

Permite contener 4 páginas de informa- 
ción de 114 personos, entidades, etc. Pu- 
diendo añadir, cambiar o borrar la infor- 
mación que se desee. 

En castellano, necesita ampliación de 8K. 
Presentado en caja. 

QSL 

Registro de contactos para radioaficiona- 
dos, versión en disco. 

Necesita ampliación de 8K. Presentado en 
caja. 

Test Demo 

Programa de test para la unidad de disco. 
Nota: este disco es el que se suministra con 
la unidad de disco VIC-1540. 

Assembler 

Editor y compilador. en BASIC Para rutinas 
en lenguaje máquina del 6502. Necesita 
ampliación de 3K. Acompañado se ma- 
nual en inglés. 

English language a 

Versión en disco del programa en y cinta, 
dado que al manejar ficheros resulta mu- 
cho más rápida su utilización. 

Necesita ampliación de 8K. Presentado en 
caja. 
Quiz Master . 

Versión en disco del programa en , cinta: 
Necesita ampliación de 8K. Presentado en 
coja. 
Matemáticas 1 (nivel BUP) 
Versión en disco del programa en cinta. 
Necesita ampliación de 8K. Presentado en 
caja. 
Simplicale : 
Hoja de Trabajo Electrónica $0 columnas 
por 100 filas Max. Necesita ampliación 
de 16K. 
Vic File 
Bases de datos pará el VIC: 20 con posibi- 
lidad de definir el formato de los campos. 
Necesita ampliación de 16K. Ideal para 
fichero de clientes. 
Vic Writer 

Proceso de texto muy. potente y rápido. 
Necesita ampliación de 8K ó 16 K. 


PROGRAMAS EN CINTA 


Programas Técnicos 


C-128 


C-129 


C-131 


microelectrónica pe E | 


Programación lineal . 

Método simplex. Cálculo del valor de las 
variables que satisfociendo las restriccio- 
nes hacen máxima o mínima una función. 
En costellano. Presentado en coja. 
Matrices 

Sumo, resta, multiplicación, multiplicación 
por un escalar e inversión de matrices. 
En costellano. Presentado en caja. 
Regresiones | A A 
Contenido: Regresión lineal: Cálculo por 
mínimos cuadrados de la recta que se ojus- 
ta mejor a una nube de puntos. 
Regresión múltiple: Varioble dependiente 
en función de N variables independientes 
de grado 1. En castellano. Presentado en 
caja. 


5.000 


3.000 


3.000 


5.000 


2.500 


2.500 


2.500 


. 13.000 


. 13.000 


. 13.000 


1.000 


1.000 


1.000 


C-132 


C-133 


C-134 


C-135 


C-137 


Regresiones Il 

Contenido: Regresión de orden N: Variable 
dependiente en función de variable inde- 
pendiente de grado N. 

Regresión exponencial: Ajuste nube de 
puntos a uma curva exponencial. 
Regresión geométrica: Ajuste de una nube 
de puntos a una curva geométrica. En 
castellano. Presentado en caja. 

Estadística |. 

Distribución normal, Polo) Binomial! E 
cuadrado, Student, F de Snedecor. En cas- 
tellono. Presentado en caja. 

Estadística Il . 

Contenido: Cálculo de ná dia varianza 
y desviación tipo, tanto de la muestra co- 
mo de la población, estando los datos 
agrupados o no. Test de chi-cuadrado y 
test de Student. En castellano, Presentado 
en caja. 

Sistemas . . 

Contenido: Resolución “de sistemas de N 
ecuaciones con N incógnitas, 

Resolución de ecuaciones de grado 2 dan- 
do las soluciones tanto reales como com- 
plejas. 

Cálculo de permutaciones y de combina- 
ciones. En castellano. Presentado en caja. 
Integración . 

Cálculo de integrales. por el método. de 
Gauss. 

Cálculo de derivadas de una función en un 
punto. Interpolaciones tanto lineales como 
curvilíneas. En castellano, Presentado en 
caja. 


Programas Educativos 


C-125 


C-140 


C-141 


C-143 


C-145 


C-146 


Hangmath o 

Se trata de averiguar la multiplicación: en- 

tre 2 números (tanto los números como 

la multiplicación y el resultado final), pro- 

curando no ser ahorcado. Las instrucciones 

son en castellano. 

Skymath 

Sumas y restas para chicos “muy jóvenes 

soliendo naves espaciales para motivar- 

los. Una manera de aprender Jrasndo: 3K. 

Space Division . 

20 preguntas sobre divisiones muy senci- 

llas. En función de los resultados correc- 

tos, despega un cohete que llegará más o 
menos lejos. 3K. 

English Language . 

Especialmente adecuado Hará las personas 

que, poseedoras de un buen nivel de in- 

galés, quieren olcanzar cotas superiores. 

Necesita ampliación de 8K. Presentado en 

caja y acompañado de su correspondiente 

manual. 

Mastermind 

Participe en el famoso concurso de la BBC, 

de preguntas y respuestas sobre temas 

variados. 

Este cassette va acompañado del sistema 

operativo y de un file de demostración. 

Necesita ampliación de 8K. Presentado en 

caja. 

Matemáticas | (nivel BUP) . 

Contiene sistema operativo y 7 cuestio- 

narios sobre diferentes temas abarcando 

geometria, aritmética, matemáticas gene- 

roles, álgebra, etc. Necesita ampliación 

de 8K ó 16K. Presentado en caja. 


PROGRAMAS COMERCIALIZADOS POR "“MICROELECTRÓNICA Y CONTROL, S.A.” 
Puede encontrarlos en su distribuidor más próximo 


y control s a 


COMPUTER 


1.000 


1.000 


1.000 


1.000 


1.000 


1.500 


1.500 


1.500 


2.000 


3.000 


2.000 


G commodore 


- El mejor ordenador personal. 
del Mundo 


Este es el nuevo ordenador personal 
COMMODORE 04. Un gigante de 40 cm. con 
un precio casi tan pequeño como su tamano 


Nadie hasta ahora había logrado ofrecerle 
6+ K de memoria. +0 columnas en pantalla. 8 
Sprites v un sonido EE ade maravilla por 
sólo 110.000,— ptas. Claro que tampoco todo 
el mundo es el líder a en 
microordenadores, 


COMMODORE sabe perfectamente que 
para seguir siendo el número uno. tiene que 
estar constantemente en vanguardia 
De calidad. De precios. De todo. Para ello 
investigamos constantemente. 


Afortunadamente núestra labor se ve 


El COMMODORE 


64 


ww 
plenamente recompensada cuando vemos, 
como lo demuestra el cuadro COMparativo. 
que nuestro mas directo competidor cuesta ] 


nada menos que un 100% más caro. Y ello sin 
reunir todos los adelantos técnicos del 
COMMODORE 0+. 


1. Capacidad total de memoria RAM de 
6+ K. Interpretador BASIC extendido y sistema 
oUperativo residentes en ROM. 


2. Dotado del más potente chip 
sintetizador de sonido diseñado hasta hov. el 
COMMODORE 064 ofrece 3 voces totalmente 
independientes con una gama de 9 octavas. 
El programa puede controlar la envolvente. 
la afinación v la forma de onda de cada voz. 


ue. Md 


Az 


convirtiendo al COMMODORE 64 en el mejor 
simulador de instrumentos. 


3. Conectable directamente a toda una 
gama de periféricos. incluvendo unidad 
de discos. impresora de matriz de puntos o de 
margarita, plotter. comunicaciones locales 
v remotas.... y mucho más. 


+. Pantalla de alta resolución en color 
con 320 x 200 puntos directamente 
direccionables. Capacidad en modo carácter 
de 25 líneas por 40 columnas. 


5. El chip de video. único en su género, 
permite el uso de 8 «Sprites» (figuras 
móviles en alta resolución v color). Los 
«Sprites» pueden moverse 
independientemente por programa de 
pixel» en «pixel». 4 


O. A cada «Sprite» se le asigna por 
programa un nivel de prioridad en caso 
de cruce con otro. consiguiendo efectos 
tridimensionales. existiendo también 
detección automática de colisiones. 


Teclado profesional con mavúsculas v 
minúsculas. más 62 caracteres gráficos. todos 
ellos disponibles en el teclado v visualizables 
en 16 colores. en forma normal o bien en 
video invertido. 


5. Encontrará a su disposición una 
“ompleta gama de programas profesionales. 
iio proceso de textos. sistemas de 
información. modelos financieros. 
contabilidad y muchas más aplicaciones. 


O. Están en fase de desarrollo asimismo 
otros lenguajes tales como LOGO. UCSD 
PASCAL. COMAL. ASSEMBLER. etc. Todos 
los programas existentes de la gama 
COMMODORE. desde el VIC-20 hasta los 
modelos CBM pueden ser adaptados 
fácilmente 


10. Posibilidad de inserción de cartuchos 
con programas grabados en ROM. tanto 
profesionales como para educación 
v Ocio 


11. Opción de un segundo procesador 
Z-80 para trabajar con sistema Operativo 
CP/M(R). 


| EL COMMODORE 64 
¡Y SUMAS DIRECTO COMPETIDOR 


Más directo 


OPCION DE BASE COMMODORE 64 


competidor 
Precio 110.000.— ptas. El doble 
Memoria usuario 64 K 48 K 
| Teclado profesional SI SI 
¡ Teclado con caracteres gráficos SI NO 
| Minúsculas Si NO 
| Teclas de función SI NO 


Máxima capacidad disco 170KalM 


AUDIO 


| 
| Generador de sonido Ss SI 
Sintetizador de música Ss NO 
| Salida HIFFI SI NO 
| VIDEO 
Salida monitor SI Si 
Salida para TV SI EXTRA 
PERIFERICOS 
Cassette SI SI 
Periféricos inteligentes Si SI 
| Bus serie SI NO 
SOFTWARE 
Opción CP/M (R) SI SI 
Ranura cartucho externo Ss! NO 


" Commodore 


COMPUTER 
paga masrsFoRIaciON | 


| DEL COMMODORE 04. | 
LLAMAR O ESCRIBIR A: 
MICROELECTRONICA Y CONTROL 
| c/ Taquigrafo Serra, ”. 52. Barcelona-29 | 
Tel. (93) 250 51 03 
| c/ Princesa. +7. 39%, G. Madrid-8 | 
| Tel. (91) 248 95 “0 | 


Nombre 
Dirección 
REL 


MOGAN 


PROGRAMAS YI | 


Programas cdi 


C-130 


.-136 


C-139 


C-142A 


C-142B 


C-144 


Caja 

Dentro de una cuenta bancoria permite 
obrir hasta 100 subcuentas con su corres- 
pondiente debe y haber. Preporodo para 
funcionar si se desea con impresora, uni- 
dad de discos y evidentemente cassette. 
Necesita ampliación 16K. Presentado en 
caja. 

Dieta : 
En función de la Add: ol altura, con- 
figuración y actividad desempeñada por 
la persona, da el peso ideal. Pregunta si se 
desea seguir un régimen, y en función de 
la actividad física desarrollada do el peso 
que se debe tener y la pérdida diaria que 
se debe alcanzar hasta llegar a dicho peso 
óptimo. Está en castellano y necesita am- 
pliación de 8K. Presentado en caja. 


Vicale . : A 
El VIC-20 se comporta e como una colculado- 
ra y utiliza la notación polaca inversa. 
Manual de instrucciones en castellano. 


Interface de RTTY y CW y cassette de CW . 
Especial para radioaficionados. 


Cassette de RTTY 
Para utilizarlo es necesario él interface de 
RTTY y CW. Especial radioaficionados. 


Quiz Master . 

Programa para preparación de cuestiona: 
rios. Especialmente adecuado para escue- 
las. En castellano. Necesita ampliación 
de 8K. 


PROGRAMAS EN CARTUCHO 


1901 


1902 


1904 


1906 


1907 


1908 


1909 


microelectrónica q == | 


Avenger . 

Típica batalla de marcianitos. Sus enemi- 
gos avanzan en fila mientras disparan te- 
niendo como protecciones su rapidez y 
velocidad de disparo y unos cuantos bun- 
kers. 

Star Battle 

Batalla de marcianitos con ataque de ovnis 
estilo «stukas». Se juega con teclado o 
con Joystick. 

Super Slot 

Juego en cartucho que le permitirá jugar 


con una máquina tragaperras cómodamen- 


te desde su casa y frente al televisor. 
Se juega por teclado o con Joystick. 


Super Allien. . 

Juego en cartucho. El individuo que usted 
moneja deberá construir defensas en el 
laberinto frente al ataque de sus enemigos 
que le pretenderán devorar. 


Júpiter Lander . 

Este juego en cartucho le permitirá demos- 
trar su habilidad al intentar aterrizar en 
Júpiter en condiciones muy difíciles y con 
el peligro de que el combustible se le ago- 
te. Se juega por teclado. 

Draw Poker . e 

Si quiere jugar al poker contra un enemigo 
implacable e impasible, este cortucho se lo 
permitirá. Se juega por teclado. 


Road Race E z 
Con este cartucho podrá usted conducir un 


2.000 


2.000 


1.500 


25.000 


2.500 


2.000 


4.500 


4.500 


4.500 


4.500 


4.500 


4.500 


4.500 


coche a través de una autopista. Se juega 
por cartucho. 


1910 Radar Ratrace 

Conduce un ratón a través de un y laberinto 
procurando comer el queso y evitar que 
sea cazado por los gatos o por otros rato- 
nes que están al acecho. Mediante un ra- 
dar sabe en qué posición se encuentran 
tanto sus enemigos como su objetivo: el 
queso. Se juega con Joystick o teclado. 

1911 The sky is failling . 

Tiene que evitar a toda costa que el muro 
alcance su altura. Se juega con paddle. 

1912 Mole attack . 

Debe darle con un martillo a un -1opo que 
va apareciendo por agujeros diversos. Su- 
mará puntos positivos o negativos en fun- 
ción de si le da en la cabeza o en la base 
posterior. 

1919  Sargon Il chess . 

Juego de ajedrez con 7 niveles de dificul- 
tad. A partir del nivel 1 existe la opción de 
que el VIC-20 le indique qué jugada haría 
si estuviese en su lugar, por lo que le hace 
adecuado para los que se inicializan en 
este juego. Se juega por teclado o Joystick. 

1924 Omega Race. 

Con este cartucho podrá posar un rato di- 
vertido simulando batallas espaciales. Se 
juega con joystick. 

C-400 VIC Forth . consultar 
Lenguaje de alto nivel. 

C-401 VIC Stat consultar 
Paquete de utilidodes estadísticas. 

C-402 VIC Graph. ñ z consultar 
Resolución de funciones por métodos grá- 
ficos. 

C-403 Wordcraft . 

Compatible Series CBM 8000 y CBM 4000. 
Tratamiento de textos. 

C-404 VIC Screen Master . 

Paquete de utilidades para edición de pan: 
tallas con utilidades para manejo de code- 
nos y disco, 

BIBLIOGRAFÍA 


Manual usuario VIC-20 . 


Nociones de funcionamiento “del vic: 20 y 
del lenguaje BASIC. 


Curso Introducción BASIC: Parte |. 


De una manera clara y sencilla, "partiendo 
de cero, se va enseñando el lenguaje del 
futuro. Este libro va acompañado de dos 
cassettes con 17 programas en castellano. 


Curso Introducción BASIC: Parte Il. 


Profundización de lo tratado en Porte l, 
especialmente en creación de ficheros, ma- 
nejo de subrutinas, efectos musicales, 
aspectos animados, etc. 


VIC Revealed 


Libro que explica con detalle el funciona: 
miento interno del VIC-20, Incluye esque- 
mas. Libro fotocopiado en inglés. 


Programers Reference Guide 


Profundización en el manejo del VIC: 20. 
Incluye referencias a rutinas lenguaje má- 
quina. Libro fotocopiado en inglés. 


PROGRAMAS COMERCIALIZADOS POR “MICROELECTRÓNICA Y CONTROL, S.A” 
Puede encontrarlos en su distribuidor más próximo 


y control sa 


CONAP )TER 


4.500 


4.500 


4.500 


4.500 


4.500 


. 42.500 


. 10.000 


800 


2.500 


2.500 


1.500 


2.000 
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TRUCOS (II) 


superexpander 


S eguramente sabréis que pulsando 
simultáneamente CTRL y <= se entra 
en el modo música del cartucho, pero, 
¿habéis probado alguna vez pulsar una 
tecla programable dentro de este mo- 
do? Si no lo habéis hecho nunca, ¡pro- 
badlo! Oiréis que suenan unas notas 
y aparecen unas letras en pantalla. 
¿Por qué? 
Ved esto en la tecla F1: 


GRAPHIC 


! 


DO 


PRES. PANTALLA 


¡Luego puedo «programar» mi melo- 
día favorita dentro de una cadena alfa- 
numérica en el modo música sin pro- 
grama y pulsando sólo una tecla! La 
única limitación son los 82 caracte- 
res máximos que se puede introducir 
de texto en KEY. Pero, ¡es igual!, nos 
quedan siete teclas más a programar, 
lo que nos da la friolera (introduciendo 
sólo notas, 'sin cambio alguno) de 
¡656 notas diferentes! Impresionante, 
¿verdad? También diré que se puede 
programar el modo música dentro de 
un programa. ¿Cómo? Probad esto: 

10 PRINT «f» 
donde «f» es una F con inversión de 
color (resultado de pulsar simultánea- 
mente CTRL y = [flecha a la izquier- 
da]). Lo único que queda es entrar 
cadenas alfanuméricas en sentencias 
PRINT y el VIC generará música. ¿Veis 
qué fácil? 


NOTA: Para los que posean los car- 
tuchos «Ayuda Programador» o «Su- 


por R. PARDO 


perexpander» con el Curso de Intro- 
ducción al BASIC parte | ó !l, debéis 
saber que con los programas «PIANO» 
y «TECLADO» se pueden utilizar las 
teclas de función (con alguno de los 
dos cartuchos conectados) para hacer- 
los servir de caja de música, con un 
sonido algo más sofisticado de lo que 
da de por sí solo el «Superexpander». 
De la manera anteriormente descrita 
podemos programar con las teclas de 
función nuestra melodía favorita, en- 
trando las teclas que se hubieran de 
haber pulsado manualmente. Si en el 
momento de la programación está co- 
nectado el cartucho «Superexpander» 
se dispondrá de 656 notas como má- 
ximo a programar. Y si se cuenta con 
«Programmer's Aid», se dispondrá de 
984 tonos diferentes. Y como precau- 
ción adicional la programación de las 
teclas de función deberá realizarse 
antes de ejecutar el programa musical 
(piano o teclado). Fijaos, seguramen- 
te habréis leído el micro-manual que 
se entrega con el cartucho y habréis 
visto los comandos de trazado, de pin- 
tado, etc., pero seguramente [como 
me pasó a mí) os preguntaréis, ¿y con 
todo esto, cómo programo? Seguid 
estas instrucciones: 


Paso 1: Seleccionar el escalón de 
resolución deseado, entre los cinco 
que hay para escoger, a saber: 

0-modo standard del VIC (22* 23) 

1-modo multicolor (80*160) 

2-modo HI-RES (160*160) 

3-modos HI-RES y multicolor 

mezclados 

4-retorno al modo texto 

(modo normal) 
Luego escribid: 10 GRAPHIC 2 


Paso 2: Definición de los colores a 
utilizar. No es estrictamente necesa- 
rio, pero no está de más hacerlo. Así 
pues, suponiendo que «definimos», po- 
déis escribir: 

20 COLOR 0,1,2,3 
Donde la pantalla tomará el color ne- 


gro (0), el marco el color blanco (1), 
el carácter el color rojo (2), y el color 
auxiliar el color cyan (3). 


Paso 3: Selección de la función de 
trazado, píntado o de impresión de 
carácter que se quiera ejecutar: pode- 
mos trazar una recta (DRAW...TO), un 
círculo o una elipse (CIRCLE), un pun- 
to (POINT), pintar un área (PAINT) o 
cambiar de color de carácter (RE- 
GION). 

La pantalla se organiza en una pseu- 
do-matriz de 1024*1024 puntos, pero 
en realidad la máxima resolución que 
se alcanza con el «Superexpander» es 
de 160*160 puntos. E 

Los comandos de «Superexpander» 
trabajan bien con todos los comandos 
BASIC, excepto con IF...THEN. Si el 
comando del «Superexpander» debe 
seguir la palabra THEN, éstas deben 
estar separadas de la siguiente ma- 
nera: 


IFX=1THEN:SCNCLR 


Ahora bien, un programa escrito con 
comandos del «Superexpander» sólo 
funcionará bien cuando esté el cartu- 
cho conectado y consecuentemente, 
los programas que estén escritos con 
comandos del cartucho sin que éste 
esté conectado NO serán reconocidos 
por éste cuando se ejecute el progra- 
ma, ya que no encontrará los «tokens» 
que éste asigna a sus comandos. 5 


MEA CULPA 


UNA MEJORA SIGNIFICATIVA DEL 
PROGRAMA PARA HACER LISTADOS. — 
En la pasada edición de CLUB COMMO- 
DORE publicamos, bajo el mismo titulo que 
encabeza esta nota, una mejora de nuestro 

- ¡programa de listados; pero nuestro enfra- 
ñable enemigo — BUG — nos jugó una de 
sus fípicas malas pasadas en la línea 165. 
La versión correcta es la siguiente: 


120 GOSUB 1 
165 ASCIAS >31ANDASC[AS)<144 
THENRETURN 


167 IFASC(AS)>223THENRETURN 


MULTICENTRO DE INFORMATICA 


* COMECOCOS. 3,5K. A/R. G/E. JY. EXTRAORDINARIA VERSION 
DEL POPULAR PUCKMAN. COLOR Y MOVILIDAD INSUPERABLE . 


+ VICGAMON. +3K. JUEGO DE INTELIGENCIA QUE LE MANTENDRA 
EN TENSION HASTA DERROTAR A SU VIC -....ooooooooooooo.- 


+ ASTEROIDS WAR. 3,5K. C/M. A/R. G/E. JY. ESPECTACULAR BATA- 
LLA GALACTICA CONTRA LA NUBE PROTONICA EN 3 DIMENSIONES 


e FROGGER. +3K y 3,5K. C/M. A/R. G/E. JY. ULTIMA NOVEDAD 
EN EE.UU. CRUZAR EL PELIGROSO RIO Y LA AUTOPISTA SUICIDA 


+ RATMAN. +8K. C/M. A/R. G/E. DE LA BOVEDA CELESTE DES- 
CENDERAN EXTRANAS RATAS ATOMICAS. ESPECTACULAR ANI- 
MACION Saro a aa o mar 


+ SHARK ATTACK. 3,5K. C/M. A/R. JY. EN MEDIO DEL OCEANO 
SERA ATACADO POR LOS PELIGROSOS TIBURONES. DEFIENDASE 
CON'SU RED ATOMICA ....... 070000 ciororcroma aaa aso 


* ROX Ill. 3,5K Y+8K. C/M.A/R. G/E. JY. DESDE SU SOFISTICADA 
BASE LUNAR DEFIENDA SU PLANETA DEL ATAQUE DE LOS UFOS 


+ .ULTISOUND SYNTHETIZER. 3,5K. ¿UN ORGANO EN SU VIC? 
¿CON ACOMPAÑAMIENTO, BATERIA Y EFECTOS ESPECIALES? .. 


+ SKI-RUN. 3,5K. C/M. A/R. G/E. DESLICESE POR LAS HELADAS 
PISTAS DE COMPETICION. SLALOM, S/GIGANTE, DESCENSO. 
O O A RC NS IAS 


+ FIREBIRD. (SPACE PHREEKS). 3,5K. C/M. A/R. G/E. JY. AÑO 
3.010. VD. ES El UNICO SUPERVIVIENTE DE LA BATALLA DE 
RIGELLIAN. DEBERA COLONIZAR OTRO PLANETA Y LUCHAR 
CONTRA LAS CRIATURAS GALACTICAS .....ooooooooocoonocos 


> + BREAKOUT. 3,5K. CONSIGA DESTRUIR LA PARED DE LADRILLOS 
MULTICOLORES CON LA BOLA MAGICA. INCLUYE "MASTERMIND”. 


* AJEDREZ. PRIMERA VERSION EN CASSETTE CON GRAFICOS EN 
ALTA RESOLUCION. BASTANTES NIVELES DE JUEGO. (STANDARD) . 


le SHADOWFAX. INCREIBLES GRAFICOS ANIMADOS. El CABALLERO 
DE LAS SOMBRAS EN LUCHA CONTRA LOS JINETES DEL TIRANO 
INVASOR (STANDARD roo dae qeria a ARGOS Elia 


+ SNAKE. COLORIDO, MOVIMIENTOS Y GRAFICOS EXCEPCIONA- 
% LES. VERSION DEL FAMOSO JUEGO DE LAS SERPIENTES (SNAKE). 
(STANDARD cortita ana Tas tn AECA 


* VIC PRINT. +8K. EXTRAORDINARIO Y SENCILLO PROCESADOR 
DE TEXTOS. TABULACION. MAQUETACION. CABECERAS, COPIAS. 
CASS OUDISK. io oia/273 orojoralóra precia e ata e ANDE Au repara e iode 


* VIC LABEL. +8K. EN COMBINACION CON VIC PRINT, ELABORA 
ETIQUETAS PARA DIRECCIONES. ......oooocooococoorc o 


Be VIC POST. +8K. ELABORA LETRAS Y TEXTOS ESPECIALES EN 
TAMANO Y FORMA PARA POSTERS, LISTAS DE PRECIOS, ETC. .. 


* VIC CALC. HERRAMIENTA DE CALCULO QUE SUSTITUYE' AL LAPIZ, 
PAPEL Y CALCULADORA REALIZA COMPLEJOS MODELOS FINAN- 
CIEROS CON POSIBILIDAD DE AJUSTARLO A OTROS PARAMETROS 
CON SOLO PULSAR UNA TECLA. 16K DE MEMORIA...........- 


* QUIZ-MASTER. +3K. El MAS ESPECTACULAR AVANCE EDUCATIVO. 
PERMITE LA CORRECCION Y PUNTUACION DE TODAS LAS RES- 
PUESTAS QUE RECIBE EL ORDENADOR ......ooooccoccoccn 


* QUIZ SET-UP. EN TANDEM CON QUIZ—MASTER PERMITE LA ELA- 
BORACION POR El USUARIO DE TODO TIPO DE PREGUNTAS Y 
CUESTIONES EDUCATIVAS O DE ENTRETENIMIENTO. EGB. IDIO- 
MAS, MATEMATICAS, HISTORIA, GEOGRAFIA, ETC. CREANDO 
UN AGIL Y ATRACTIVO SISTEMA DOMESTICO /EDUCATIVO ..... 


* FACEMAKER. 16K. CARICATURANDO El ROSTRO DE SUS COMPA- 
NEROS Y AMIGOS El VIC 20 PONDRA A PRUEBA El VOCABULARIO 
'WEA"ATENCION DESNINON ada ceuta da ecards ee dos 


WICREVEALED:.. 0563000000 ..0008 00.0. 
GETTIN ACQUAINTED WITH YOUR VIC 


1.900 


2.000 


1.800 


1.900 


1.600 


1.900 


2.900 


3.200 


PUERTO RICO, 21-23 - MADRID-16 TEL. 250 74 02-250 74 04 
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* MYRIAD. +3K, C/M. A/R. G/E. JY. LA MAS ESPECTACULAR 
AERONAVE PARA DESTRUIR LAS CRIATURAS COSMICAS EN SU 
VIAJE GAFAGUCO 5 acia leo os cel oe 


+ COSMIADS. 3,5K. C/M. A/R. G/E. JY. VERSION ULTRARRAPIDA 
DEL MUNDIALMENTE FAMOSO JUEGO “GALAXIANS”. INCREIBLES 
HFECTOS SONOROS. 2. diria 


+ BLITZRIEG. 3,5K. C/M. A/R. G/E. JY. DESTRUYA LA CIUDAD 
ENEMIGA CON SU BOMBARDERO. 25 NIVELES DE JUEGO ...... 


+ DEFENSA. +8K. C/M. A/R. G/E. JY, N.* 1 EN INGLATERRA, 
COMO GUERRERO GALACTICO DEBE DEFENDER A LOS HUMA.- 
NOIDES CONTRA LOS ENEMIGOS CIBERNETICOS. 9 NIVELES DE 
JUEGO. ESPECTACULAR NAVE Y SONIDOS .................+- 


2.000 


1.700 


1.600 


2.000 


* VIC PANIC. 3,5K. C/M. A/R. G/E. JY. VERSION DEL POPULAR 
“SPACE PANIC”. ESCALE LAS LADERAS Y HUYA DE LOS MONS- 
TIROS orcas 


+ SKRAMBLE. 3,5K. C/M. A/R. G/E. JY. ATRAVESANDO LOS TEMI- 
BLES PASADIZOS INTERESTELARES DESTRUYA LAS BASES ENEMIGAS 


* 3D LABYRINTH. +8K. C/M. A/R. EXTRAORDINARIO LABERINTO 
TRIDIMENSIONAL. ¿SERA CAPAZ DE SALIR DE El? UNO O VARIOS 
TS RR 


* GOLF. 3,5K. RECORRIDO DE 9 HOYOS PERO ATENCION A LOS OBS- 
TACULOS: ARBOLES, LAGOS, ETC. INCLUYE VIC MUSIC Y PIANO 


+ CARRERA DE BUGGYS. 3,5K. C/M. A/R. G/E. ESPECTACULAR 
RECORRIDO. ACELERADOR. DECELERACION. 9 NIVELES ........ 


* GRIDRUNNER. 3,5K. C/M. A/R. G/E. JY. IMPRESIONANTE VER- 
SION LLENA DE COLORIDO, MOVILIDAD Y SONIDO DEL POPULAR 
VCENTIEDE ¿cometida IA NDA sr ibóee 


+ HI-RES. 3,5K. GRAN JUEGO DEMO/UTILIDAD PARA REALIZAR 
EN PANTALLA GRAFICOS EN ALTA RESOLUCION. INCLUYE GEN. 
NN PA 


+ ABDUCTOR. LAS CRIATURAS COSMICAS DEL PLANETA "ALPHA I" 
INTENTARAN SECUESTRAR A LOS HUMANOIDES PARA CONSEGUIR 
ENERGIA E INTELIGENCIA SUPERIORES. TU MISION SERA DEFEN- 
DER TU PLANETA Y DESTRUIR LAS NAVES ABDUCTORAS. (STAN- 
AS AI ES E 


* TRAXX. VERSION DEL CONOCIDO JUEGO "AMIDAR”": MEZCLA 
DEL POPULAR "PACKMAN” Y DEL JUEGO "QUIX”. 100% CODIGO 
MAQUINA. GRAFICOS EN ALTA RESOLUCION. ESPECTACULAR 


SONIDO Y COLOR. 8K DE MEMORIA .......o.oocoococoooooooooo. 2.000 


* VIC BASE. 16K. POTENTE BANCO DE DATOS. 255 CARACTERES 
MAS DE 25 CAMPOS. CAMBIO Y LOCALIZACION, SALIDA IM- 


PRESORAS. 0 renace RA RIE A 
OPCION Us io nan ER AZ y Y Ne 


+ GRAPHVICS. +3K. AÑADE 18 POTENTES COMANDOS PARA PO- 
SICIONAR PUNTOS, DIBUJAR LINEAS Y TEXTOS EN ALTA RESO- 
TUCIONMIS2 IO) ¿vicio i aia eric rra ete 


* GRAPH EDITOR £ SOFTKEY 24, 3,5K. AMBOS PROGRAMAS PER- 
MITEN DISEÑAR HASTA 64 CARACTERES PARA INCORPORARLOS 
A SUS PROPIOS PROGRAMAS Y JUEGOS ....oococcocccoccc 


+ NUMBER CHASER. 16K. PROGRAMA PARA PRACTICAS DE MUL- 
TIPLICACION CON CARRERAS DE COCHES, ADELANTA, FRENA, 
ACELERA SEGUN LAS RESPUESTAS. 4 NIVELES DE DIFICULTAD... 2.000 

* NUMBER GULPER. 16K. JUEGO EDUCACIONAL DE COMPETICION 
CON NUMEROS PARA SUMA, RESTA, MULTIPLICACION Y DIVISION 2.000 


+ WE WANT TO COUNT, 16K PROGRAMA PARA NIÑOS A PARTIR 


DE TRES AÑOS, INVASORES. CARRERAS. ETC. ....o..o...000.00. 2.000 
* TWISTER. 16K. JUEGO DE LOGICA Y CONCENTRACION. PUZZLES 
GEOMETRICOS CON SONIDO Y COLOR. .....o.ooocooccccccor o 2.000 


2.000 ZAP! POW! BOOM! ¿.ooociooo oo. ... 
1.800 VIC INNOVATIVE......oooooconoo 
1.500 50 PROGRAMAS LISTADOS Ml........ 


15 


Y club commodore 


APLICACIONES EDUCATIVAS 


editor personal 


(VIC-20 con ampliación de 3 K 
o sin ampliación) 


por JOAN ARGEMÍ 


Joan Argemí es un usuario de VIC que trabaja en aplicaciones de en- 
señanza. Hemos conseguido convencerle para que nos escriba una 
sección de nuestra Revista dedicada a estos temas que creemos son 
de gran interés para nuestros lectores. Aunque este primer artículo 
cae un poco fuera del título de esta sección creemos que vale la pena 
pues permite aprovechar toda la superficie de la pantalla del televisor 
y mediante las pertinentes modificaciones —que improvisará el lec- 
tor habilidoso— se puede convertir en un interesante (y barato) pro- 


cesador de textos. 


E programa que os presentamos tie- 
ne su aplicación más directa en la 
confección (secreta) de un diario per- 
sonal. Con él podréis escribir, día a 
día, vuestras ideas, pensamientos, 
poesías..., sin el temor de que sean 
directamente legibles por algún fami- 
liar desaprensivo. Podréis también re- 
cordar en él los hechos más significa- 
tivos de un día concreto, como citas o 
notas...; y todo ello guardado en un 


división 


INFORMÁTICA 


SANTmusT 


La primera tienda especializada en el VIC-20 


e PROGRAMAS EN CASSETTE. DISQUETTE. etc. 
+. IMPRESORA. MONITORES e PROGRAMAS PROPIOS 
e SERVICIO TECNICO 


INTERFACE VIC-HAM para emitir y recibir en CW y RTTY (con cualquier equipo) 
Solicite más información 


Calle Mayor. 2 - Tel. (93) 3717043 - SAN JUST DESVERN (Barcelona) 


cassette secreto, cassette que, para 
ser leído, necesitará la llave maestra 
de este programa. Es casi imposible 
que con estos métodos de seguridad, 
alguien se inmiscuya en vuestra inti- 
midad. El programa ofrece la posibili- 
dad pues, de escribir amplios textos 
en la pantalla (hasta 26 columnas por 
32 líneas), y luego grabarlos en cinta 
o bien imprimirlos. 

Si os fijáis en el listado, veréis que 


el programa se inicia con el plantea- 
miento de una variable que concierne 
al registro del VIC (línea 1). Manipu- 
lando con ella, podremos variar a nues: 
tra conveniencia la situación vertical 
y horizontal de la parte útil de la pan- 
talla. Para ello (muchos de vosotros lo 
sabréis de memoria), sólo debéis cam- 
biar el contenido de los POKEs de las 
líneas 6 (izquierda - derecha, entre los 
números 9 y 20) y 7 (arriba - abajo, en- 
tre los números 10 y 40). El programa 
los sitúa en 10 y 30, respectivamente, 
pero éstos son solamente los conte- 
nidos convenientes a la televisión de 
su autor... Para vosotros pueden ser 
distintos. En las líneas 2 y 3 el progra- 
ma propone las variables VR (vertical), 
es decir número de columnas y HR 
(horizontal), es decir número de lí- 
neas. Como podéis ver en el listado, 
el programa da a estas variables unos 
contenidos de 26 y 28 (respectivamen- 
te), pero se pueden variar a vuestro 
gusto, mientras no excedan de 26 
por 32. 

Las líneas 15, 16 y 17 definen a las 
rutinas de borrar (BO), grabar (GR), y 
cargar (CR), todas ellas contenidas en 
los data del final del listado, codifica- 
das como valores del POKE de la lí- 
nea 19. 

El programa se maneja con las te- 
clas normales para todos los asuntos 
de edición (Rvs.Cursor.Del), y con tres 
teclas de función para los modos prin- 
cipales. Así, con la F1, el programa 
grabará todo lo escrito en la pantalla 
(a tener en cuenta, el hecho de que no 
aparecerán mensajes y desaparecerá 
el cursor). Con la tecla F3, el progra- 
ma podrá cargar cualquier escrito pre- 
viamente grabado por él, y, con la F5, 
el programa imprimirá en formato pan- 
talla todo lo que en ella esté escrito. 
Si quisiéseis cambiar el formato de 
lo impreso, sólo deberéis sustituir a 
las variables VR y HR de la línea 56 
por los números del formato que de- 


(continua en la pag. siguiente) 
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45 REM 


46 A=ASCIAS) 1IFA>31 AND AXE4 THEN G 
OTO 51 


47 IF R>63 AND AX96 OR A>168 AND AX 
192 THEN A=A-64:GOTO 51 


editor personal 


(viene de la pag. anterior) 


48 IF A=255 THEN A=94:GOTO 51 


49 IF A>191 AND AX224 THEN A=A-128: 
GOTO 51 


58 GOTO 23 


seéis. Así pues, sólo os queda picar  céis en formatos menores, el cursor 
cuidadosamente el listado, proponerle recorre espacios inexistentes, que 
el número de columnas y líneas más tampoco es tan molesto... pero el VIC 
conveniente a vuestro televisor y... a es para perfeccionistas. 
inspirarse. Desde ahora podréis facilitar la ta- 
Si queréis ser perfeccionistas en  reaa vuestros futuros biógrafos, guar- 
adaptar vuestro programa al formato dando celosamente en una cassettote- 
exacto con que lo hagáis, cambiar los ca vuestras impresiones de la vida... 
26*32 de las líneas 38 y 39 por vues-  ¡Ah!, pero no se os olvide dejarles en 
tros VR*HR pues estos valores están un sobre lacrado el secreto programa 
puestos como límite máximo, y si ejer- con que se puedan leer. E 


51 IF RY=1 THEN A=FNACA> 


52 POKE P,As1IF P<SC+HRAVR-1 THEN P= 
P+1 


53 GOTO 23 


54 A$=CHR$(145)>: IF <(PEEK(36869) AND 
2)=2 THEN A$=CHR$<17> 


55 OPEN 4,4:1F A$=CHR$<17> THEN CLO 
SE 4:0PEN 4,4,7 


56 PRINTR4 :A=SC-VR:FOR B=8 TO HR-12 
BS=A$:A=A+VR:FOR C=A TO A+VR-1 


57 D=PEEK<C>: IF D>128 THEN D=D-128: 
RY=1 :B$=B5+CHR$(18)> 


LISTADO “EDITOR PERSONAL” 


58 IF 0<32 THEN D=D+64:G0TO 62 


59 IF (D>31)> AND (D<64> THEN 62 


1 VIC=36864 25 NEXTI1POKE P,FNBCPEEKCP>)):FORI=1T 


68 IF(D>63) AND (D<96> THEN D=D+32: 


2 VR=26 048: 1F PEEK(198)<>8 THEN 27 GOTO €2 

SS 26 NEXT:GOTO 23 61 IF (D>95) AND (D<128> THEN D=D+6 

4 DEF FNACI>=I-128K(1<128> 27 As=""10ET AS Y 

62 BS=BS+CHRSC(D>: IF RV=1 THEN Bs 
S DEF FNBCI>=1+128x(1>127)> 28 IF As="[ CLR J" THEN SYS BO:P=SC E O z ¡REN eses 
6 POKE YIC,10 di 
E 63 NEXT:PRINTH4,ES :NEXT:PRINTH4:CLO 

29 IF A$="[HOME J“THEN P=SC:GOTO 23 z 

7? POKE VIC+1,30 SE4 ¿RETURN 

8 FOKE VIC+2,PEEKCVIC+2> “AND: 12808 38 1F Ré="ERYSONI" THEN RV=1:G0TO 2 TCRSROICORSRDILORSRDI ECRSROECRSRDS 
3 


[CRSRDITCRSRDICCRSRDI[CRSROITCRSRDI 


9 POKE VIC+3,PEEKCVIC+3) AND 129 OR 31 IF AS="C[RYSOFJ" THEN RY=8:G0TO23 a o paid 
HARZ : : ,28: 


65 POKE 648,30:PRINT"C[HOME J[CRSRDI 


10 POKE 36866,PEEK(36866) AND NOT 1 32 IF As="[CRSRDI" THEN P=P+VR CCRSRDJCCRSRDIECRSROJECRSROIEORSROI 
28 
2 a CCRSRDJTCRSRD) [CRSROJCCRSRDICCRSRDI 
Ass 33 1F As="[CRSRUJ" THEN P=P-VR CCRSRDILCRSRDICCRSRDICCRSRDI":SYS C 
A R:POKE 648,28 :RETURN 
SSA NCO=31888 66 DATA 162,0,169,32,157,8,28,157,8 


35 IF AS="[CRSRLI" THEN P=P-1 


13 POKE 648,28 ,29 
36 IF AS=CHR$(13) THEN P=SC+VR+VR*I 
14 MC=SC-256 NT<<P=SC>/VR) > 67 DATA 157,8,38,157,9,31,169,9,157 
,8 
15 BO=MC 37 IF A$=CHR$(28> THEN POKE P,32:P= 
P-1 68 DATA 148,157,8,149,157,8,158,157 
16 GR=MC+35 8 
38 IF P<SC THEN P=P+(26M32)> 
17 CR=MC+66 69 DATA 151,232,288,225,96,234,162, 
39 IF P>=SC+(26K32> THEN P=P-(2632 1 
18 POKE 56,27:POKE 52,27 > 


79 DATA 168,255,32,186,255 


19 FORI=8T085:READ A:rPOKE MC+I,A:NE 49 IF A$="[CRSRDI" OR A$="[CRSRUJ" 
XT OR AS$="[CRSRRI" OR A$="[CRSRLI" THE 71 DATA 169,8,32,189,255,169,28,133 
N 23 ,2,169,0,133,1 
28 SYS MC 
41 IF AS=CHR$(28> OR AS=CHR$(13> TH 72 DATA 169,1,162,64,168,31,32,216, 
21 P=SC EN 23 255,96,234 


RY=9 ñ 42 IF A$="[ Fi J* THEN GOSUB 64:60 73 DATR 162,1,1686,255,32,186,255,16 


TO 23 9,0,32,189 
23 POKE P,FNACPEEKCP>>:FORI=1 TO 48 
43 IF As$="[ F3 3" THEN GOSUB €5 74 DATA 255,162,255,160,255,32,213, 
255,96,234 
24 IF PEEKC198><>8 THEN POKEP,FNBCP 44 IF AS="[ FS 1" THEN GOSUB 54:60 


EEK<P>>:GOTO27? TO 23 READY. 
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NOTICIAS 


novedades 
COMMODORE 64 


Acaban de aparecer los primeros 
programas para el Ordenador Personal 
COMMODORE 64. Vamos a ver, bre- 
vemente, algunas de las característi- 
cas más sobresalientes de ellos para 
información de nuestros lectores. 

El primero es un Procesador de Tex: 
tos llamado EASY SCRIPT para la con- 
fección de cartas, circulares, manua- 
les y — cómo no — artículos como el 
que usted está leyendo. Veamos cuá- 
les son sus cualidades: 

— Dispone de la mayoría de ayudas 
para la edición (modificación de pa- 
labras, correcciones, etc...) de los 
procesadores de textos, siendo és- 
tas muy sencillas tanto de recordar 
como de ejecutar. 

— EASY SCRIPT tiene la posibilidad de 
trabajar en MODO REPORT, con lo 
cual facilita muchísimo la confec- 
ción de informes con datos extraí- 
dos de ficheros. 


EA-4- 


— EASY SCRIPT puede trabajar con un 
máximo de 240 columnas tanto en 
pantalla como en impresora. En mo- 
do editor, todos los comandos pro: 
gramados para ejecución son visi- 
bles para el operador. 

— El comando de salida permite visua- 
lizar el documento en su forma fi- 
nal, tanto en impresora como en 
pantalla, facilitando en gran manera 
la corrección de los posibles erro- 
res, o bien imperfecciones de for- 
ma, antes de efectuar la impresión 
definitiva. 

— EASY SCRIPT permite, mediante 
una función especial, realizar cual- 
quier comando de disco. Con lo cual 
pueden visualizarse directorios, bo- 
rrarse ficheros, cambiar un nombre, 
etc. SIN SALIR DEL PROPIO EASY 
SCRIPT y sin perder un solo dato 
de memoria. 

— EASY SCRIPT puede mandar carac- 


APW 


JOSE GONZALEZ COELLO 


Carretera Ciudad Real-Valdepeñas. Kilómetro 3 - Telefono (926) 225713 
MIGUELTURRA (Ciudad Real) 


Distribuidor de S.C.S.-D.S.E. s/a, SITESA. TAGRA, PIHERZ, GIRÓ y otras más 


Ofrece todo lo necesario para el Radioaficionado 
Equipos de bandas bajas KENWOOD. YAESU. SOMMERKAMP. ICOM. SWAN, etc 
Equipos VHF KDK-FDK. YAESU. STANDARD. KENWOOD. ICOM. etc 


Antenas CUSHCRAFT. HUSTLER. HY-GAIN, FRITZEL. TAGRA. GIRO. BUTTERNUT 
Amplificadores lineales para HF y VHF. TELNIX. TONO. MIRAGE. etc 
Microfonos. medidores. acopladores. watimetros. receptores aficionado y profesionales 
fuentes de alimentación varias marcas. “transveners”, torretas. cables, conectores. etc. 


Distribuidor de COMMODORE 
con su ya famoso VIC-20 y sus periféricos 


teres especiales a la impresora, co- 

mo por ejemplo funciones ESCAPE 

seguidas de cualquier número de 
caracteres. 

— Dispone además de BACK SPACE 
considerado en la justificación del 
texto, con lo cual queda asegurada 
la posibilidad de los diversos acen: 
tos y caracteres especiales. 

— Con las impresoras COMMODORE 
puede trabajar con caracteres defi- 
nibles por el usuario. 

— Finalmente, la facilidad de aprendi- 
zaje de los potentes comandos de 
los cuales va provisto el programa, 
hacen de EASY SCRIPT el mejor 
aliado de cualquier profesional pa: 
ra la realización fácil y práctica de 
sus trabajos. 

El programa se presenta en disco. 
El precio de venta al público es de 
20.000 pesetas. 

CALC RESULT es un nuevo paquete 
de software para oficinas, creado por 
la firma HANDIC SOFTWARE AB. 

Para las personas que han de reali: 
zar cálculos o simulaciones complejos, 
CALC RESULT les resultará un instru- 
mento valiosísimo, que no sólo acele- 
rará el trabajo sino que simplificará 
en gran medida las tareas complejas. 

CALC RESULT permite configurar 
hasta 32 páginas electrónicas con un 
máximo de 154 filas y 63 columnas, a 
la manera de tablas, donde almacenar 
cantidades y textos para interaccionar 
entre ellas y realizar operaciones de 
simulación numérica del tipo «¿qué pa- 
saría si...?» u operaciones repetitivas 
complejas. 

CALC RESULT incorpora un gran nú- 
mero de comandos y funciones que 
aceleran la manipulación de datos. 

CALC RESULT opera de modo tri- 
dimensional, proporcionando una vi- 
sión natural del trabajo. Esta estruc- 
tura tridimensional facilita la creación 
de esquemas, amplía las posibilidades 
de manipulación de datos y suma dife- 
rentes páginas electrónicas de infor- 
mación. 

Las intersecciones entre hileras y 
columnas crean miles de posiciones, 
también llamadas coordenadas. En ca- 
da una de estas posiciones, el usuario 
puede entrar números, textos o fórmu- 
las de cálculo. Los comandos de for- 
matación permiten configurar cada po: 
sición con un formato diferente. 

Cada una de las páginas CALC RE:- 
SULT puede ser escindida horizontal 
y verticalmente, lo que permite ver 
simultáneamente dos diferentes par- 
tes de una página. 


(continua en la pag. siguiente) 
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(viene de la pág. anterior) 


Es posible colocar diferentes pági- 
nas electrónicas en cada mitad de la 
pantalla escindida. Una ventanilla pue- 
de abrirse en la pantalla, de modo que 
muestre cualquier punto de la página, 
y puede escindirse en dos mitades, al 
igual que la propia pantalla. De este 
modo es posible poner en la pantalla 
simultáneamente partes'de cuatro pá: 
ginas diferentes. 

Para simplificar el uso, CALC RE- 
SULT visualiza todas las opciones que 
ofrece cada comando y si se desea 
carga un menú de ayuda en castellano 
con una breve explicación de cada 
comando. 

Las funciones de edición de CALC 
RESULT permiten cambiar, insertar y 
borrar texto, fórmulas y valores. La 
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información entrada puede reorgani- 
zarse en cualquier ocasión deseada, 
para entrar nuevas hileras y columnas. 

Después de entrar una fórmula ma- 
temática, la misma puede repetirse 
tantas veces como se desee en cual- 
quier hilera o columna. CALC RESULT 
suma, calcula promedios y manipula 
completas hileras de columnas o áreas 
de posiciones. CALC RESULT, al con- 
trario de otros programas de hoja elec- 
trónica desplazable, interpreta las fór- 
mulas con arreglo a las reglas norma- 
les de aritmética. 

CALC RESULT retiene en su memo- 
ria interna las fórmulas que usted es- 
cribe, incluso después de ejecutar el 
cálculo. De esta forma, cada vez que 
usted cambia algún valor, todos los 
demás valores que están relacionados 
con él se recalculan automáticamente. 
Este recálculo, enteramente automáti- 
co o de desearse manual, es un eficaz 
instrumento de planificación y cálculo, 
que permite no sólo corregir errores, 
sino también estudiar diferentes pre- 
dicciones y soluciones. 

CALC RESULT permite reproducir 
los valores también como histogramas 
de barras, con escalas a definir por el 


nr ICTO 


A NINAS 


usuario, adaptadas a la magnitud de 
los valores. Estas tablas gráficas pue- 
den entonces formatearse individual. 
mente para su impresión. 

CALC RESULT se presenta en cartu- 
cho acompañado de un disco y su pre- 
cio es de 33.000 pesetas. 


* . . 


FORTH es un nuevo lenguaje estruc- 
turado que permite al usuario una gran 
flexibilidad al poder definir las propias 
funciones incluyendo rutinas en códi- 
go máquina (contiene el equivalente a 
un MACRO ASSEMBLER) para aque- 
llas partes del programa que requieran 
un tratamiento especial por razones 
de tiempo de ejecución y/o flexibili- 
dad, con lo que en un determinado mo- 
mento se puede llegar a trabajar con 
un lenguaje «a medida» de la aplica- 
ción que se está desarrollando. Ade- 
más, por razón de su estructura inter- 
na, reúne las ventajas de un lenguaje 
compilado (rapidez) y uno interpretado 
(utilización eficaz de los recursos de 
memoria del equipo). 

Su presentación es en cartucho con 
manual en inglés, y su precio es de 
20.000 pesetas. ] 


BORRADOR 
PROGRAMADOR 


DE MEMORIAS EPROM 


BP-2000 


PUEDE GRABAR 
2716 2516 2758 
2732 2532 2764 
2508 2708rr1 2716 1m1 


O CONECTOR-BUS COMPATIBLE PARA CADA TIPO DE MICRO 
Ó FUNCIONES; AUTOPROG, VERIFICADO, LECTURA, EDIT, COPY, CRUNCH, LIST. 
O A DE BORRADO: 2537Á CON PROTECCION CONTRA LA RADIACIÓN 


(Q TEMPORIZADOR PROGRAMABLE Y BORRADO DE HASTA 14 MEMORIAS 


(Q PERSONALIZACION POR SOFT. L.E.D. PARA INDICACION ERROR - PASS 


PARA SU e CBM 


e VIC -20 
e AIM-65 


e APPLE 
O etc. 
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NOTICIAS 


adaptación de la 
impresora S-30 
de Honeywell 
al VIC-20 


Mieroelectrónica y Control, S.A. 
anuncia la disponibilidad de la impre- 
sora de tipo profesional S-30 de Honey- 
well conectable al VIC-20 mediante un 
interfaz especial que se suministra 
con ella, siendo las características de 
esta impresora las siguientes: 


— Impresión por matriz de puntos 
(7x7) controlada por microprocesa- 
dor. 


— Velocidad de impresión: 80 carac- 
teres por segundo, bidireccional. 50 
LPM. para líneas de 80 caracteres. 

— Set de 96 caracteres. 

— 132 caracteres/línea, 10 caracte- 
res/pulgada, 6 líneas/pulgada. 


— Arrastre de papel: tipo tractor, 
ancho entre 3 y 15 pulgadas. Alimenta- 


ción trasera o inferior. 


— Hasta un original y dos copias, 


máximo grosor: 0,3 milímetros. 
— Auto test. 
— Buffer de línea. 
— Cubierta anti-ruido. 
— Avance de línea: 100 mseg. 


— Cartucho de cinta tintadora es- 
tandar Honeywell, en bucle Moebius 
que permite el máximo aprovecha- 


miento. 


— Su precio de venta al público es 


de 110.000 pesetas. 


micro/bik 
Reviata Españols de e n 


Electrónica 


En sus páginas ya se han publica- 
do, desde el n.* 1 (febrero 1982): 


6 Programas para VIC-20 y para 
otros ordenadores. 


O Se han publicado artículos sobre 
los siguientes temas: 


— Serie de artículos sobre los 
microprocesodores con análi- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semá- 
foros en la vía pública, Sis- 
tema de alarma anti-robo, 
Sencilla aplicación para mo- 
tores de cassette o de jugue- 
tes eléctricos. 

— Rutinas útiles para la clasifi- 
cación de datos (SORT). 

— Descripción de la PIA. 

— Los convertidores analógico- 
digitales y digital-analógicos. 

— Nuevos equipos operativos 
de burbujas magnéticas para 
la investigación y las aplica- 
ciones industriales. 

— los cálculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET"CBM, 

— Diseño y simulación de un 
proyecto con microproceso- 
dor, desarrollado con el AlM- 
65. 

— los impresoras, 

— Temporizador programable: 
aplicoción real de un sistema 
controlado por microproceso- 
dor. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AlM- 
65, equipo en el que se hon 
incluido versiones de Basic 
para ayudar en la enseñonzo 
de lenguajes de programa- 
ción. 

— Un lenguaje de alto nivel re- 
comendado pora los micro- 
procesadores: el Pascal. 

— Un documentado trabajo so- 
bre las características y posi- 
bilidodes de las impresoras. 

— Ejemplos de programación en 
lenguaje Pascal con el TRS-80 
y con el AIM-65. 

— Una serie de ortículos sobre 
los robots y su utilización: 
característicos, funcionamien- 
to y aplicaciones. 


e Fichas técnicas de microprocesa- 
dores y de micro-ordenadores. 
Para números atrasados y para 
suscripción anval (1.975 ptas.), 
dirigirse a: 

REDE - Apdo. 35400 - Barcelona 


20 
TRUCOS 


valor correcto para 
los bytes libres en 
el COMMODORE 64 


por P. MASATS 


Un. de las primeras sorpresas que 
obtuvimos del COMMODORE 64 fue el 
comprobar la memoria libre usuario 
de que disponíamos al poner en mar- 
cha el primer equipo que cayó en nues: 
tras manos (operación muy frecuente 
como es lógico). Al hacer ?FRE(O0) la 
respuesta fue un número negativo, lo 
que causó no poco estupor y buen nú- 
mero de incisivos e irónicos comenta- 
rios entre los presentes. Bien, la ex- 
plicación es sencilla: la lógica interna 
de la función FRE(X) da el resultado 
como un número entero (ver el artícu- 
lo VENTANA CBM; ESTRUCTURA DE 
LAS CABECERAS DE VARIABLES Y 
ARRAYS; CLUB COMMODORE, núme- 
ro 6). El formato de un número entero 
está formado por dos Bytes en los cua- 


VIC-20 


- CONTABILIDAD 

- GESTIÓN COMERC. 
- STOCK ALMACENES 
- VIDEO CLUB 

- ENTRAPUNT 

=ETC. 


Y club commodore 


S ETC: 


de control y estado. Dos iemporizadores p 


(Barcelona). 


tres juegos. Además se darán 
bros existentes o no en España sobre el 


tiérrez. Santiago Rusiñol, 12. MADRID-3. 


O Vendo interfaz y p: a 


les el bit más significativo del Byte 
más significativo contiene el signo del 
número, siendo igual a uno cuando 
la cantidad representada es negativa. 
Cuando el intérprete de BASIC cuenta 
el número de Bytes libres en la rutina 
de inicialización que se ejecuta en la 
puesta en marcha, el recuento (al ex- 
ceder la máxima capacidad que es 
32767) da como resultado la puesta a 
uno de este bit y la rutina de impre- 


LLL 1 


PROGRAMAS STANDARD Y «A MEDIDA» PARA EQUIPOS COMMODORE 


SISTEMA 4000 SISTEMA 8000 SISTEMA 8000 

- FACTURACIÓN - CONTABILIDAD (10MB) — FINCAS 

— ALMACÉN - GESTIÓN COMER. — IND. CÁRNICAS 

- GESTIÓN COMERC. - 9000 ARTÍCULOS — EMP. LIMPIEZA 

— VENTAS DETALL — GEST. INTEGRADA - COOPERATIVAS 

- TIENDAS - ALMACÉN - TALLERES 

- ETIQUETAS - NÓMINAS - COMPONENTES 
- DIRECCIÓN - PIENSOS 
— AUTOVENTA - COLEG. PROFES. 
- CONTROL SOCIOS - CADENAS MONTAJE 
- PRODUCCIÓN - ETC. 


Avenida César Augusto, 72 - Teléfonos 235682 y 226544 


ZARAGOZA -3 


MARKETCLUB 


O En Barcelona, clases de informática. PLAZAS LIMITADAS. Lenguaje BASIC. Prácticas con 

micro-ordenador VIC-20. Prof. E. Martínez de Carvajal. Información: Tel. 345 10 00. Srta. María 

José (mañanas) o 345 87 75. Sr. Martínez (fuera de horas de oficina). 

O Vendo módulo para VIC-20 compuesto de: dos puertas de ocho entradas/salidas más dos 
ramables. Posibilidad de interrupción IRQO-NMI. 

Con las correspondientes instrucciones. Razón: Luis Torrenís. C/. Velázquez, 39. TERRASSA 


O Hago programas en BASIC COMMODORE bajo encargo. Vendo VIC-20, con 16 K de RAM, 
cartuchos de: Ayuda al Programador, Monitor Lenguaje Máquina, Superexpander + 3 K y 
al comprador muchos programas hechos y comprados y 5 li- 
VIC. Todo por 65.000 ptas. (vale más de 100.000). Por 
separado fambién. Llamar al 91-253 13 40, Horas comida y cena. Dirección: Francisco Gu- 


6 Vendo aplicación de facturación con control de representantes, 9 listados, 6 ficheros, esta. 
dísticas, etc, Permite copias de seguridad. Configuración: VIC 8 K, di 
pesetas. Escribir a Jaime Ameller Pons. General Mola, 15, 12 B. CALATAYUD (Zaragoza). 
O Se ofrece 3008 + C2N de segunda mano en buenas condiciones; precio a convenir. Razón: 
Domingo Garrofé Trabal. Aragón, 386, 12 12. Tel. 211 54 40. BARCELONA.-9. 

Y programa para RTTY y CW para el PET a 15 K, Rafael, EA3CGK, Ave- 
nida Barcelona, 21, A, 42 22, IGUALADA (Barcelona). 


disco e impresora, 40.000 


sión exhibe un número negativo. (Espe- 
ramos que no haya muchas desmorali- 
zaciones prematuras después de esta 
«sencilla» explicación). La manera de 
evitar comportamientos excéntricos 
de la función FRE(X) en un programa 
que la utilice es hacer, por ejemplo: 
X=FRE (0) : IFX<0 THEN 


X=X-+65536 
En este caso la variable X contendrá el 
valor correcto de Bytes libres. E 
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